CAAElliptical_Calculate_Mercury <-
function(JD){
.Call("CAAElliptical_Calculate_Mercury", JD)
}
